*The Geography of Stigma Management: Replication Program

use "GeographyStigmaManagement.dta"

*Scale Reliability:
alpha sm1_r -sm18
 
*Table 1
sum age female white black hispanic fulltime unemployed republican democrat lesshs hs somecollege bachelors associate graduate

*Table 2
tab sexualorientation

*Table 3
foreach var of varlist selfmonitor age female black hispanic fulltime parttime unemployed republican democrat hs_or_less somecollege associate bachelors_or_more southormidwest largepop {
	ttest `var', by(nonhetero) 
}

*Table 4
reg selfmonitor nonhetero female age black hispanic democrat fulltime parttime somecollege associates bachelors_or_more, r
reg selfmonitor nonhetero female age black hispanic democrat fulltime parttime somecollege associates bachelors_or_more southormidwest largepop, r
reg selfmonitor i.nonhetero##i.largepop female age black hispanic democrat fulltime parttime associates somecollege bachelors_or_more southormidwest,r
reg selfmonitor i.nonhetero##i.southormidwest female age black hispanic democrat fulltime parttime somecollege associates bachelors_or_more largepop, r


*Table 4: Additional interactions 
reg selfmonitor i.nonhetero##i.female i.largepop age black hispanic democrat fulltime parttime associates somecollege bachelors_or_more southormidwest,r
reg selfmonitor i.nonhetero##c.age i.largepop female black hispanic democrat fulltime parttime associates somecollege bachelors_or_more southormidwest,r
reg selfmonitor i.nonhetero##i.black i.largepop age female hispanic democrat fulltime parttime associates somecollege bachelors_or_more southormidwest,r
reg selfmonitor i.nonhetero##i.hispanic i.largepop age female democrat fulltime parttime associates somecollege bachelors_or_more southormidwest ,r
reg selfmonitor i.nonhetero##i.democrat i.largepop age female hispanic fulltime parttime associates somecollege bachelors_or_more southormidwest  ,r
reg selfmonitor i.nonhetero##i.fulltime i.largepop age female hispanic democrat  parttime associates somecollege bachelors_or_more southormidwest ,r
reg selfmonitor i.nonhetero##i.associates i.parttime age female hispanic democrat  fulltime somecollege bachelors_or_more southormidwest,r
reg selfmonitor i.nonhetero##i.somecollege i.parttime age female hispanic democrat fulltime associates  bachelors_or_more southormidwest,r
reg selfmonitor i.nonhetero##i.bachelors_or_more i.parttime age female hispanic democrat fulltime associates somecollege southormidwest ,r

*Figure 1: Adjusted Means
reg selfmonitor i.nonhetero##i.largepop i.nonhetero##i.southormidwest female age black hispanic democrat fulltime parttime somecollege associates bachelors_or_more, r
margins, over(nonhetero largepop southormidwest) post
margins, coeflegend

test _b[1.nonhetero#0bn.largepop#0bn.southormidwest] = _b[0bn.nonhetero#0bn.largepop#0bn.southormidwest]

test _b[1.nonhetero#0bn.largepop#1.southormidwest]   = _b[0bn.nonhetero#0bn.largepop#1.southormidwest]

test _b[1.nonhetero#1.largepop#1.southormidwest]   = _b[0bn.nonhetero#1.largepop#1.southormidwest]

test _b[1.nonhetero#1.largepop#0bn.southormidwest]= _b[0bn.nonhetero#1.largepop#0bn.southormidwest]
